;*****************************
;* RoboTask Task file
;* Do not edit in text editor!
;*****************************
 
[Root]
ActionAfterRun=INTEGER|0
Actions=FOLDER
Automat=INTEGER|0
CatID=INTEGER|176842955
Comment=STRINGLIST
ContinueOnError=INTEGER|0
ExternalName=STRING|"Task29"
Hide=INTEGER|0
ID=INTEGER|740205216
LogOnAsUser=INTEGER|0
Name=STRING|"[DEMO.BASIC] Merlin"
OnErrorTaskID=INTEGER|0
Priority=INTEGER|3
RunOnClose=INTEGER|0
RunOnStartup=INTEGER|0
ToLog=INTEGER|3
WriteGeneralLog=INTEGER|0

[Actions]
Action1=FOLDER

[Actions\Action1]
ActionID=STRING|"BASIC_SCRIPT"
Enabled=INTEGER|-1
Name=STRING|"Basic Script"
Params=FOLDER

[Actions\Action1\Params]
line00000=STRING|"'#Reference {F5BE8BC2-7DE6-11D0-91FE-00C04FD701A5}#2.0#0#C:\WINDOWS\msagent\agentctl.dll#Microsoft Agent Control 2.0"
line00001=STRING|"Public WithEvents magent As Agent"
line00002=STRING|"Public b,x"
line00003=STRING|"Public wanttoquit As Boolean"
line00006=STRING|"Sub Main"
line00007=STRING|"    Dim windir As String"
line00008=STRING|"    Dim username As String"
line00009=STRING|"    windir = RoboTaskApp.ExpandText(""{windir}"")"
line00010=STRING|"    username = RoboTaskApp.ExpandText(""{username}"")"
line00011=STRING|"    Set magent= New Agent"
line00013=STRING|"    magent.Connected=True"
line00014=STRING|"    magent.Characters.Load(""My"", windir+""\msagent\chars\merlin.acs"")"
line00016=STRING|"    Set b=magent.Characters.Character(""My"")"
line00017=STRING|"  b.Commands.Add ""Time"",""What time ?"""
line00018=STRING|"  b.Commands.Add ""Fly"",""Fly"""
line00019=STRING|"  b.Commands.Add ""Write"",""Write"""
line00020=STRING|"  b.Commands.Add ""Processing"",""Processing"""
line00021=STRING|"  b.Show"
line00022=STRING|"  Set req = b.Speak(""Hello ""+username)"
line00024=STRING|"  MsgBox(""Press OK to close Merlin"")"
line00025=STRING|"  "
line00026=STRING|"  b.StopAll"
line00027=STRING|"    b.Hide"
line00028=STRING|"  Wait 3"
line00029=STRING|"End Sub"
line00031=STRING|"Private Sub magent_Command(ByVal UserInput As Object)"
line00032=STRING|"  Select Case UserInput.Name"
line00033=STRING|"      Case ""Time"""
line00034=STRING|"               b.StopAll"
line00035=STRING|"               Set Req=b.Speak (""Now "" + Str(Time()))"
line00036=STRING|"      Case ""Write"""
line00037=STRING|"               b.StopAll"
line00038=STRING|"               Set req = b.Play(""Write"")"
line00039=STRING|"      Case ""Processing"""
line00040=STRING|"               b.StopAll"
line00041=STRING|"               Set req = b.Play(""Processing"")"
line00042=STRING|"      Case ""Fly"""
line00043=STRING|"                b.StopAll"
line00044=STRING|"                b.MoveTo Rnd*1000,Rnd*1000"
line00045=STRING|"                b.MoveTo Rnd*1000,Rnd*1000"
line00046=STRING|"                b.MoveTo Rnd*1000,Rnd*1000"
line00047=STRING|"   End Select"
line00049=STRING|"End Sub"
line00051=STRING|"Private Sub magent_RequestComplete(ByVal Request As Object)"
line00052=STRING|"  Set req = Nothing"
line00053=STRING|"  b.Play(""Processing"")"
line00054=STRING|"End Sub"
linecount=STRING|"55"
source=STRING|"0"